1 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(14)"[150]A LATE JOG[157][157][157][157][157][157][157]BY H."
2 FORA=0TO2000:NEXT:POKE53265,PEEK(53265)AND239:PRINT"[147]":POKE53272,24
3 SYS6656:V=53248:S=2040:POKES+4,56:POKES+5,57
4 FORA=4TO7:POKEV+39+A,1:NEXT:K=V+8:L=V+9:M=V+10
5 N=V+11:O=V+12:P=V+13:Q=V+14:R=V+15:POKEV+23,240:POKEV+29,240:POKEV+16,0
6 POKEK,0:POKEL,59:POKEM,0:POKEN,101:POKEO,0
7 POKE53265,PEEK(53265)OR16:POKEP,143:POKEQ,0:POKER,185:FORA=0TO5000:NEXT:F=0
8 POKEV+21,240:GOSUB41:FORA=1TO8:GOSUB37:GOSUB23:GOSUB43:GOSUB19:GOSUB43
9 GOSUB39:GOSUB38:GOSUB23:GOSUB43
10 IFA=8THENGOSUB21:GOTO13
11 IFA=4THENGOSUB42:FORJ=0TO750:NEXT
12 GOSUB41:GOSUB19
13 GOSUB43:GOSUB40:NEXTA:GOSUB42
14 FORA=0TO1:GOSUB37:GOSUB23:GOSUB43:GOSUB19:GOSUB43:GOSUB38
15 GOSUB39:GOSUB23:GOSUB43:IFA=1THEN17
16 GOSUB19:GOSUB43:GOSUB40:NEXTA:GOSUB37
17 POKEK,PEEK(K)-32:POKEM,PEEK(M)-32:POKEO,PEEK(O)-32
18 POKEQ,PEEK(Q)-32:GOTO25
19 POKEL,59:POKEK,PEEK(K)+8:POKEN,101:POKEM,PEEK(M)+8
20 POKEP,143:POKEO,PEEK(O)+8:POKER,185:POKEQ,PEEK(Q)+8:RETURN
21 POKEL,59:POKEV+16,16:POKEK,0:POKEN,101:POKEV+16,48:POKEM,0
22 POKEP,143:POKEV+16,112:POKEO,0:POKER,185:POKEV+16,240:POKEQ,0:RETURN
23 POKEL,63:POKEK,PEEK(K)+8:POKEN,105:POKEM,PEEK(M)+8
24 POKEP,147:POKEO,PEEK(O)+8:POKER,189:POKEQ,PEEK(Q)+8:RETURN
25 FORA=0TO100:NEXT:FORA=0TO2:POKEL,PEEK(L)+12:POKEN,PEEK(N)+12
26 POKEM,PEEK(M)-2:POKEP,PEEK(P)+11
27 NEXT:GOSUB40:FORA=0TO2
28 POKEL,PEEK(L)+12:POKEM,PEEK(M)-3:POKEN,PEEK(N)+12:NEXT:GOSUB37
29 POKEL,PEEK(L)+12
30 FORA=0TO1000:NEXT:GOSUB42:FORA=0TO250:NEXT:POKEL,PEEK(L)+3
31 FORA=0TO1500:NEXT
32 FORA=0TO20:GOSUB38:GOSUB35:GOSUB37:GOSUB35:NEXT:POKEV+21,0
33 FORA=0TO3000:NEXT
34 POKE53272,21:POKE648,4:PRINT"[147][154]":END
35 POKEK,PEEK(K)+2:POKEM,PEEK(M)+2
36 POKEO,PEEK(O)+2:POKEQ,PEEK(Q)+2:RETURN
37 POKES+6,62:POKES+7,63:RETURN
38 POKES+6,59:POKES+7,60:RETURN
39 POKES+5,61:RETURN
40 POKES+5,57:RETURN
41 POKES+4,58:RETURN
42 POKES+4,56:RETURN
43 FORJ=0TO70:NEXT:RETURN